home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / toi / intropon.bas < prev   
BASIC Source File  |  1994-06-01  |  234b  |  10 lines
  1. 5 CLS
  2. 10 RANDOMIZE TIME
  3. 18 A=INT(RND*15)+1
  4. 20 CD PLAY A
  5. 30 INPUT C
  6. 40 IF C=1 THEN CD STOP
  7. 50 INPUT B
  8. 60 IF B=A THEN PRINT"正解！！！！！！！！！！！！！！！！！":END: ELSE PRINT"外れ！！！！！！！！！！！！！！！"
  9. 70 GOTO 50
  10.